home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / misc / 2b_Haracz.lha / Haracz / Install / Install.script < prev    next >
Text File  |  2000-11-13  |  10KB  |  461 lines
  1. ; $VER Installation script for Haracz 2.24 (8 October 2000)
  2. ; written and english strings by:
  3. ;         Phillipe Bovier <bovier@club-internet.fr
  4. ;        Mariusz Danilewicz <mandi@interia.pl>
  5. ;   deytch translation by: Dirk Neubauer / ATO DE
  6. ;                          Horst Schumann / ATO DE
  7. ;     french translation by: Phillipe Bovier / ATO FR
  8. ;     polish translation by: Mariusz Danilewicz / ATO PL
  9. ;
  10. ; V1.0: original release
  11. ; V1.1: modified by Philippe Bovier for compatibility with InstallerNG
  12. ;
  13. ; /// Variables
  14. (set version "2.24")
  15. (set programme "Haracz")
  16. (set @default-dest "sys:")
  17. ; ///
  18. ; /// Deutch strings
  19. (if (= @language "deutsch")
  20. (
  21. (set #bad-kick (cat "\n"
  22. "Zur Installation von Haracz benötigt man mindestens Kickstart 3.0!\n")
  23. )
  24.  
  25. (set #install (cat "\n"
  26. "Haracz Installation\n\n"
  27. "Dieses Skript installiert Haracz V "Version"\n"
  28. "auf deinem Amiga.\n"
  29. "Haracz © 1999 - 2000 Misto/BlaBla Produkt\n\n"
  30. "Alle Rechte vorbehalten ")
  31. )
  32.  
  33. (set #install2 (cat
  34. "Ein Verzeichnis namens Haracz wird erzeugt.\n\n"
  35. "Alle nötigen Dateien werden dorthin kopiert\n"
  36. "(Hauptprogramm, AppIcon nach ENVARC:, Bilder und das Rexxverzeichnis)\n\n"
  37. "Die Katalogdatei deiner Sprache wird nach \n"
  38. "Catalogs/deine_Sprache/ im Haracz-Verzeichnis kopiert. \n\n"
  39. "Ein Verzeichnis namens docs wird im Haracz-Verzeichnis erzeugt \n"
  40. "und die Anleitung dorthin kopiert.")
  41. )
  42.  
  43. (set #need_mcc_nlist (cat
  44. "Haracz benötigt die Klasse MCC NList.\n"
  45. "Man findet die neue Version im Aminet unter /dev/mui\n")
  46. )
  47.  
  48. (set #where (cat
  49. "Wohin soll Haracz und alle notwendigen Dateien"
  50. "installiert werden?\n"
  51. "Ein Verzeichnis namens Haracz wird erzeugt.")
  52. )
  53.  
  54. (set #where-help (cat "\n"
  55. "Ein Verzeichnis namens Haracz wird erzeugt.\n"
  56. "Alle Hauptdateien und Daten werden kopiert.")
  57. )
  58.  
  59. (set #ask_icons (cat
  60. "Möchtest du einige Extra-Piktogramme installieren?\n\n"
  61. "JA: Kopiere alle Piktogramme von Haracz\n"
  62. "NEIN: Weiterhin im Haracz-Archiv verfügbar\n")
  63. )
  64.  
  65. (set #which-language (cat
  66. "Welche Sprache möchtest du mit Haracz benutzen.")
  67. )
  68. )
  69. )
  70. ; ///
  71. ; /// English strings
  72. (if (= @language "english")
  73. (
  74. (set #bad-kick (cat "\n"
  75. "You must have Kickstart 3.0 or higher installed to use Haracz!\n")
  76. )
  77.  
  78. (set #install (cat "\n"
  79. "Haracz installation\n\n"
  80. "This script installs Haracz v "Version"\n"
  81. "on your Amiga.\n"
  82. "Haracz © 1999 - 2000 Misto/BlaBla Product\n\n"
  83. "All rights reserved ")
  84. )
  85.  
  86. (set #install2 (cat
  87. "A drawer named Haracz will be created.\n\n"
  88. "All the necessary files will be copied there\n"
  89. "(Main program, AppIcon in ENVARC:, images and rexx drawer)\n\n"
  90. "Your language will be copied to the \n"
  91. "Catalogs/your_language/ in the Haracz directory. \n\n"
  92. "A drawer named docs will be created in Haracz directory \n"
  93. "and the Manual will be copied there.")
  94. )
  95.  
  96. (set #need_mcc_nlist (cat
  97. "Haracz needs MCC NList class.\n"
  98. "You can find new version on Aminet in /dev/mui\n")
  99. )
  100.  
  101. (set #where (cat
  102. "Where do you want to install Haracz"
  103. "with all the necessary files?\n"
  104. "A drawer called Haracz will be created.")
  105. )
  106.  
  107. (set #where-help (cat "\n"
  108. "A drawer called Haracz will be created.\n"
  109. "Principal files and data will be copied.")
  110. )
  111.  
  112. (set #ask_icons (cat
  113. "Do you want to copy some extra icons?\n\n"
  114. "YES: Copy all the icons for Haracz\n"
  115. "NO : Available in the haracz archive until next reboot\n")
  116. )
  117.  
  118. (set #which-language (cat
  119. "Choose the language you want to use with Haracz.")
  120. )
  121. )
  122. )
  123. ; ///
  124. ; /// French strings
  125. (if (= @language "français")
  126.  
  127. (
  128. (set #bad-kick (cat "\n"
  129. "Vous devez posseder le Kickstart 3.0 ou supérieur pour utiliser " programme "!\n")
  130. )
  131.  
  132. (set #install (cat "\n"
  133. "Installation de Haracz\n\n"
  134. "Ce script installe Haracz v "Version"\n"
  135. "sur votre Amiga.\n"
  136. "Haracz © 1999 - 2000 Misto/BlaBla Product\n\n"
  137. "Tous droits réservés.")
  138. )
  139.  
  140. (set #install2 (cat
  141. "Un tiroir nomme Haracz sera crée.\n\n"
  142. "Le programme principal et autres fichier\n"
  143. "y seront copiés.\n\n"
  144. "(programme principal, appicone dans ENVARC:, tiroir images et rexx)\n"
  145. "Votre langage sera copié dans catalogs/français du tiroir HARACZ\n\n"
  146. "Un tiroir nomme docs sera crée dans\n"
  147. "Haracz et la doc y sera copié.\n\n")
  148. )
  149.  
  150. (set #need_mcc_nlist (cat
  151. "\nHaracz utilise la classe MCC NList.\n"
  152. "Vous pouvez trouver une version sur Aminet dev/mui\n")
  153. )
  154.  
  155. (set #where (cat
  156. " S.V.P, sélectionnez le chemin d'accés ou installer "
  157. "Haracz avec ses fichiers annexes."
  158. " Un tiroir appelé Haracz sera créé.")
  159. )
  160.  
  161. (set #where-help (cat "\n"
  162. "Un tiroir appelé Haracz va ètre crée.\n\n"
  163. "Le fichier principal et ses datas vont ètre copiés dans "
  164. "leurs tiroirs respectifs ainsi que la documentation "
  165. "suivant votre langague.")
  166. )
  167.  
  168. (set #ask_icons (cat
  169. "Voulez-vous aussi copier des icones supplémentaires?\n\n"
  170. "YES: Copie des tous les icones dans le tiroir haracz\n"
  171. "NO: Icones dispnible dans l'archive d'origine jusqu'au prochain reboot\n")
  172. )
  173.  
  174. (set #which-language (cat
  175. " S.V.P, sélectionnez le langage que vous desirez "
  176. " utiliser avec Haracz."))
  177. ))
  178. ; ///
  179. ; /// Polish strings
  180. (if (= @language "polski")
  181. (
  182. (set #bad-kick (cat "\n"
  183. "Haracz wymaga systemu 3.0 lub nowszego!\n")
  184. )
  185.  
  186. (set #install (cat "\n"
  187. "Instalacja Haracza\n\n"
  188. "Ten skrypt zainstaluje Haracza v "Version"\n"
  189. "na Twojej Amidze.\n"
  190. "Haracz © 1999 - 2000 Misto/BlaBla Product\n\n"
  191. "All rights reserved ")
  192. )
  193.  
  194. (set #install2 (cat
  195. "Katalog o nazwie Haracz zostanie utworzony.\n\n"
  196. "Wszystkie niezbëdne pliki zostanâ tam skopiowane\n"
  197. "(Program gîówny, katalog z obrazkami i skryptami ARexxa)\n\n"
  198. "Lokalizacja programu zostanie skopiowana do podkatalogu\n"
  199. "Catalogs/twoj_jezyk/ w katalogu Haracza.\n\n"
  200. "Dokumentacja w wybranym przez Ciebie jëzyku\n"
  201. "zostanie skopiowana do podkatalogu Docs/.")
  202. )
  203.  
  204. (set #need_mcc_nlist (cat
  205. "Haracz wymaga klasy MCC NList.\n"
  206. "Moûesz znaleúê nowâ wersjë na aminecie w katalogu /dev/mui\n")
  207. )
  208.  
  209. (set #where (cat
  210. "Gdzie chcesz zainstalowaê Haracza razem ze"
  211. "wszystkimi niezbëdnymi plikami.\n"
  212. "Katalog Haracz zostanie utworzony.")
  213. )
  214.  
  215. (set #where-help (cat "\n"
  216. "Katalog Haracz zostanie utworzony.\n"
  217. "Wszystkie niezbëdne pliki zostanâ tam skopiowane.")
  218. )
  219.  
  220. (set #ask_icons (cat
  221. "Czy chcesz skopiowaê katalog z dodatkowymi ikonami?\n\n"
  222. "TAK: Kopiuje wszystkie ikony do Haracza\n"
  223. "NIE: Dostëpne w katalogu Icons/ pakietu instalacyjnego\n")
  224. )
  225.  
  226. (set #which-language (cat
  227. "Wybierz jëzyk jakiego chcesz uûywaê z Haraczem.")
  228. )))
  229. ; ///
  230. ; /// Main part
  231. (if (< (/ (getversion) 65536) 39)
  232.   (abort #bad-kick)
  233. )
  234.  
  235. (message #install)
  236. (message #install2)
  237.  
  238. (if (not (exists "MUI:Libs/MUI/NList.mcc"))
  239.   (abort #need_MCC_NLIST)
  240. )
  241.  
  242. (if (patmatch "(68020|68030|68040|68060)" (database "cpu"))
  243.   (copylib
  244.     (help @copylib-help)
  245.     (prompt "\nMonthNavigator.mcc\n")
  246.     (source "/libs/mui/MonthNavigator020.mcc")
  247.     (dest "MUI:Libs/Mui")
  248.     (newname "MonthNavigator.mcc")
  249.     (confirm "average")
  250.   )
  251.   (copylib
  252.     (help @copylib-help)
  253.     (prompt "\nMonthNavigator.mcc\n")
  254.     (source "/libs/mui/MonthNavigator.mcc")
  255.     (dest "MUI:Libs/Mui")
  256.     (confirm "average")
  257.   )
  258. )
  259.  
  260. (copylib
  261.   (prompt "MonthNavigator.mcp")
  262.   (source "/libs/mui/monthnavigator.mcp")
  263.   (dest "MUI:libs/mui")
  264.   (help @copylib-help)
  265.   (confirm "average")
  266. )
  267.  
  268. (copylib
  269.   (prompt "date.library")
  270.   (source "/Libs/date.library")
  271.   (dest "LIBS:")
  272.   (help @copylib-help)
  273.   (confirm "average")
  274. )
  275.  
  276. (set @default-dest
  277.    (askdir (prompt (cat #where))
  278.      (help #where-help)
  279.      (default @default-dest )
  280.    )
  281. )
  282.  
  283. (set destdir (tackon @default-dest "Haracz"))
  284. (makedir destdir (infos))
  285. (copyfiles
  286.   (source "/Haracz")
  287.   (dest destdir)
  288.   (infos)
  289. )
  290.  
  291. (copyfiles
  292.   (source "/Haracz.config")
  293.   (dest destdir)
  294. )
  295.  
  296.  
  297. (if (>= (/ (getversion) 65536) 41)
  298.   (
  299.     (copyfiles
  300.       (source "/os35/def_BlaBla.info")
  301.       (dest "ENV:SYS")
  302.     )
  303.     (copyfiles
  304.       (source "/os35/def_BlaBla.info")
  305.       (dest "ENVARC:SYS")
  306.     )
  307.   )
  308.   (
  309.     (copyfiles
  310.       (source "/def_BlaBla.info")
  311.       (dest "ENVARC:SYS")
  312.     )
  313.     (copyfiles
  314.       (source "/def_BlaBla.info")
  315.       (dest "ENV:SYS")
  316.     )
  317.   )
  318. )
  319.  
  320. (set imagesdir (tackon destdir "images"))
  321. (makedir imagesdir)
  322. (if (>= (/ (getversion) 65536) 41)
  323.   (copyfiles
  324.     (source "/os35/images")
  325.     (dest imagesdir)
  326.     (all)
  327.   )
  328.   (copyfiles
  329.     (source "/images")
  330.     (dest imagesdir)
  331.     (all)
  332.   )
  333. )
  334.  
  335.  
  336. (set rexxdir (tackon destdir "rexx"))
  337. (makedir rexxdir)
  338. (copyfiles
  339.   (source "/rexx")
  340.   (dest rexxdir)
  341.   (all)
  342. )
  343.  
  344. (set Icons
  345.   (askbool
  346.     (prompt (cat #ask_icons))
  347.     (help @askchoice-help)
  348.     (default 1)
  349.   )
  350. )
  351.  
  352. (if (<> 0 Icons)
  353.   (
  354.     (set iconsdir (tackon destdir "icons"))
  355.     (makedir iconsdir)
  356.     (copyfiles
  357.       (source "/icons")
  358.       (dest iconsdir)
  359.       (all)
  360.     )
  361.   )
  362. )
  363.  
  364. (
  365.   (SET catdoc
  366.     (ASKCHOICE
  367.       (PROMPT #which-language)
  368.       (help @askchoice-help)
  369.       (if (= @language "deutsch")  ((default 0)))
  370.       (if (= @language "english")  ((default 1)))
  371.       (if (= @language "français") ((default 2)))
  372.       (if (= @language "polski")   ((default 3)))
  373.       (CHOICES
  374.         "deutsch"
  375.         "english (built-in)"
  376.         "français"
  377.         "polski"
  378.       )
  379.     )
  380.   )
  381. )
  382.  
  383. (if (= catdoc 0)      ; deutsch
  384.   (set guidefile "/docs/deutsch")
  385.   (set catsrc "/catalogs/deutsch")
  386. )
  387.  
  388.  
  389. (if (= catdoc 1)      ; english
  390.   (set guidefile "/docs/english")
  391. )
  392.  
  393. (if (= catdoc 2)      ; français
  394.   (set guidefile "/docs/français")
  395.   (set catsrc "/catalogs/français")
  396. )
  397.  
  398. (if (= catdoc 3)      ; polski
  399.   (set guidefile "/docs/polski")
  400.   (set catsrc "/catalogs/polski")
  401. )
  402.  
  403. (set destdocdir (tackon destdir "Docs"))
  404. (makedir destdocdir (infos))
  405.  
  406. (if (<> catdoc 1)
  407.   (
  408.     (makedir (tackon destdir "Catalogs"))
  409.     (if (= catdoc 0)  ; deutsch
  410.       (
  411.         (makedir (tackon destdir "Catalogs/deutsch"))
  412.         (set catdest (tackon destdir "Catalogs/deutsch"))
  413.       )
  414.     )
  415.     (if (= catdoc 2)  ; français
  416.       (
  417.         (makedir (tackon destdir "Catalogs/français"))
  418.         (set catdest (tackon destdir "Catalogs/français"))
  419.       )
  420.     )
  421.     (if (= catdoc 3)  ; polski
  422.       (
  423.         (makedir (tackon destdir "Catalogs/polski"))
  424.         (set catdest (tackon destdir "Catalogs/polski"))
  425.       )
  426.     )
  427.     (copyfiles
  428.       (source catsrc)
  429.       (dest catdest)
  430.       (all)
  431.     )
  432.   )
  433. )
  434.  
  435. (copyfiles
  436.   (source "/docs/common")
  437.   (dest destdocdir)
  438.   (all)
  439.   (infos)
  440. )
  441.  
  442. (copyfiles
  443.   (source guidefile)
  444.   (dest destdocdir)
  445.   (infos)
  446.   (all)
  447.   (optional "oknodelete" "force")
  448. )
  449.  
  450. (set configsdir (tackon destdir "configs"))
  451. (makedir configsdir)
  452. (copyfiles
  453.   (source "/configs")
  454.   (dest configsdir)
  455.   (all)
  456. )
  457.  
  458. (set @default-dest destdir)
  459. (EXIT)
  460. ; ///
  461.